1 POKE50257,20:DIMP(6,35),FZ(24),T(1,14):S=0:Z=0:V=0:Z1=6:Z2=5:S1=17:S2=19:S3=35:SI=54272:PRINT"[147]";CHR$(14);CHR$(8):DATA8,10,12,15,18,23,28,23,18,15,12,10,8:DATA97,143,143,210,209,181,49,181,209,210,143,143,97:FORI=0TO1:FORV=2TO14:READT(I,V):NEXTV,I:POKE53280,0:POKE53281,0:PRINT"[147][144]";
2 FORZ=0TO23:PRINT"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]";:NEXTZ:PRINT"                                       ";:DATA1,1,1,1,0,0,1,0,0,0,0,0,0,0,0,0,0,0:DATA1,0,0,0,0,0,1,0,1,0,0,0,0,0,0,0,0,0:DATA1,0,0,0,0,0,1,0,1,0,0,0,1,1,1,0,1,0
3 DATA1,1,1,1,0,0,1,1,1,1,0,0,1,0,1,0,1,1:DATA1,0,0,1,0,0,0,0,1,0,0,0,1,1,1,0,1,0:DATA1,0,0,1,0,0,0,0,1,0,0,0,1,0,0,0,1,0:DATA1,1,1,1,0,0,0,0,1,0,0,0,1,1,1,0,1,0:FORZ=0TOZ1:FORS=0TOS1:READP(Z,S):NEXTS,Z:J=0:FORI=55388TO55686STEP40:FZ(J)=I:J=J+1:NEXT
4 FORV=14TO2STEP-1:FORZ=0TOZ1:FORS=0TOS1:IFP(Z,S)THENPOKEFZ(Z)+S,V
5 NEXTS,Z:FORT=0TO6:FZ(T)=FZ(T)+39:NEXTT:GOSUB53:NEXTV:DATA1,0,0,1,0,0,0,0,1,0,0,0,0,1,0,0,1,0:DATA1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1:DATA0,0,0,1,0,0,0,0,1,1,0,0,0,0,0,0,1,1:DATA1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1:DATA0,0,0,1,0,0,0,0,0,1,0,0,0,0,0,0,0,1
6 DATA1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1:DATA1,1,1,1,0,0,0,0,1,1,1,0,0,0,1,0,1,1:DATA1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1:DATA0,0,1,1,0,0,1,0,1,1,1,1,1,1,1,1,1,1:DATA1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1:DATA0,0,0,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1
7 DATA1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1:FORZ=0TOZ2:FORS=0TOS3:READP(Z,S):NEXTS,Z:J=0:FORI=55296TO56256STEP40:FZ(J)=I:J=J+1:NEXT:FORZ=0TOZ2:FORS=0TOS3:IFP(Z,S)>0THENPOKEFZ(18-Z)+2+S,0
8 NEXTS,Z:FORZ=12TO2STEP-1:FORS=2TO37:POKEFZ(Z)+S,0:NEXTS,Z:DATA1,1,1,1,1,0,0,1,0,0,1,1,1,1,0,0,1,1,1,1:DATA0,0,1,0,0,0,0,1,0,0,1,0,0,1,0,0,1,0,0,0:DATA0,0,1,0,0,0,0,1,0,0,1,0,0,1,0,0,1,0,0,0:DATA0,0,1,0,0,0,0,1,0,0,1,1,1,1,0,0,1,1,1,1:DATA0,0,1,0,0,0,0,1,0,0,1,0,0,0,0,0,0,0,0,1
9 DATA0,0,1,0,0,0,0,1,0,0,1,0,0,0,0,0,0,0,0,1:DATA0,0,1,0,0,0,0,1,0,0,1,0,0,0,0,0,1,1,1,1:FORZ=0TOZ1:FORS=0TOS2:READP(Z,S):NEXTS,Z:J=0:FORI=55384TO55684STEP40:FZ(J)=I:J=J+1:NEXT:FORV=2TO14:FORZ=0TOZ1:FORS=0TOS2:IFP(Z,S)THENPOKEFZ(Z)+S,V
10 NEXTS,Z:FORT=0TO6:FZ(T)=FZ(T)+41:NEXTT:GOSUB53:NEXTV:POKESI+24,0:POKE55954,3:POKE55913,3:DATA1,0,0,1,0,0,0,0,1,0,0,0,0,1,0,0,1,0:DATA1,0,0,0,0,1,0,0,1,0,0,0,0,0,1,1,1,1:DATA0,0,0,1,0,0,0,0,1,1,0,0,0,0,0,0,1,1:DATA1,0,0,0,1,1,0,0,1,0,0,0,0,0,1,1,0,0
11 DATA0,0,0,1,0,0,0,0,0,1,0,0,0,0,0,0,0,1:DATA1,0,0,1,1,1,0,0,1,0,0,0,0,0,1,0,0,0:DATA1,1,1,1,0,0,0,0,1,1,1,0,0,0,1,0,1,1:DATA1,0,0,1,1,1,0,0,1,0,0,1,0,0,1,0,0,1:DATA0,0,1,1,0,0,1,0,1,1,1,1,1,1,1,1,1,1:DATA0,0,0,0,0,1,0,0,1,0,0,0,0,0,1,0,0,0
12 DATA0,0,0,1,1,0,1,1,1,1,1,1,1,1,1,1,1,0:DATA0,0,0,0,1,1,0,1,1,0,0,0,0,1,1,0,0,0:FORZ=0TOZ2:FORS=0TOS3:READP(Z,S):NEXTS,Z:J=0:FORI=55296TO56256STEP40:FZ(J)=I:J=J+1:NEXT:FORZ=0TOZ2:FORS=0TOS3:IFP(Z,S)>0THENPOKEFZ(18-Z)+2+S,0
13 NEXTS,Z:FORZ=12TO2STEP-1:FORS=2TO37:POKEFZ(Z)+S,0:NEXTS,Z:FORT=1TO500:NEXTT:FORZ=0TO11:PRINT:NEXTZ:Z=13:S=0:GOSUB72:PRINT"[158][196] [201][160][197][160][211][160][205][160][193][160][204] :":Z=16:S=18:GOSUB72:PRINT"[158][195] U R S O R ":Z=18:S=18:GOSUB72:PRINT"[158]U N T E R ":Z=20:S=18:GOSUB72:PRINT"[158]R O L L E":FORT=0TO500:NEXTT:Z=20:S=18:GOSUB72:PRINT"[158]N R O L L E":FORT=0TO500:NEXT
14 Z=20:S=18:GOSUB72:PRINT"[158]O N R O L L E":FORT=0TO500:NEXT:Z=20:S=18:GOSUB72:PRINT"[158][203] O N R O L L E":FORT=0TO500:NEXT:Z=21:FORS=0TO24:GOSUB72:PRINT"[158]T":FORT=OTO30:NEXTT:GOSUB72:PRINT" ":NEXTS:S=24:FORI=0TO7:FORZ=22TO21STEP-1:GOSUB72:PRINT"[158]T":FORT=OTO10:NEXTT:GOSUB72:PRINT" ":NEXTZ,I:Z=20:S=18:GOSUB72:PRINT"[158][203] O N   R O L L E":FORT=0TO600:NEXT
15 Z=20:S=18:GOSUB72:PRINT"[158][203] O N T R O L L E":GOSUB67
16 PRINT"[147][144]";:POKE53280,11:POKE53281,11:GOSUB52:Z=1:S=2:GOSUB72:PRINT"[199] R U N D L A G E N   D E R         ":Z=2:GOSUB72:PRINT"[195] U R S O R A D R E S S I E R U N G ":PRINT:PRINT:PRINT"[204]EIDER BIETET DAS [211]TANDARD-[194][193][211][201][195] VOM":PRINT"64ER KEINEN [208][210][201][206][212] [193][212] [194]EFEHL. [215]ENN WIR"
17 PRINT"DIE [208]RINT-[193]USGABE AUF EINEM BESTIMMTEN":PRINT"[218]EILEN- UND [211]PALTENWERT WUENSCHEN, SIND":PRINT"WIR AUF EIN SELBSTGESCHRIEBENES [208]ROGRAMM";:PRINT"ANGEWIESEN.":PRINT:PRINT"[213]NSER [208]ROGRAMM IST ALS [213]NTERPROGRAMM":PRINT"GESCHRIEBEN UND BENUTZT LEDIGLICH ZWEI"
18 PRINT"[208][207][203][197]-[193]DRESSEN UND EINE [194]ETRIEBSSYSTEM-":PRINT"[210]OUTINE":PRINT:PRINT"[196]ER [193]DRESSE 211[146] WIRD DER [211]PALTENWERT[146] UND";:PRINT"DER [193]DRESSE 214[146] WIRD DER [218]EILENWERT[146]":PRINT"UEBERGEBEN. [215]IR MUESSEN NUN NUR NOCH MIT";:PRINT"[211][217][211]58640[146] EINE [211]YSTEMROUTINE AUFRUFEN."
19 GOSUB67:PRINT"[147][144]";:POKE53280,11:POKE53281,11:GOSUB52:Z=1:S=2:GOSUB72:PRINT"[213] N T E R P R O G R A M M   F U E R ":Z=2:GOSUB72:PRINT"[195] U R S O R A D R E S S I E R U N G ":PRINT:PRINT:PRINT"[196]AS [194]ETRIEBSSYSTEM REAGIERT ABER SEHR":PRINT"UNANGENEHM, WENN DIE ZULAESSIGEN [215]ERTE"
20 PRINT"UNTER- ODER UEBERSCHRITTEN WERDEN.":PRINT:PRINT"[215]IR HABEN DAHER IN UNSER [213]NTERPROGRAMM":PRINT"EINE [194]EREICHSUEBERPRUEFUNG EINGEBAUT.":PRINT:PRINT"[200]IER NUN DAS [213]NTERPROGRAMM:":PRINT:PRINT"[158]997 [210][197][205] [195][213][210][211][207][210][193][196][210][197][211][211][201][197][210][213][206][199][160][160][160][160][160][160][160][160][160][160][160] ":PRINT"998 [201][198][218]<0[207][210][218]>24[207][210][211]<0[207][210][211]>39[212][200][197][206][210][197][212][213][210][206]"
21 PRINT"999 [208][207][203][197]214,[218]:[208][207][203][197]211,[211]:[211][217][211]58640:[210][197][212][213][210][206]":PRINT:PRINT"[196]IE [218]EILE 998[146] KANN ENTFALLEN, WENN [211]IE":PRINT"SICHER SIND, DASS DIE [214]ARIABLEN [218][146] UND [211][146]":PRINT"NUR GUELTIGE [215]ERTE ENTHALTEN KOENNEN.":GOSUB67:PRINT"[147][144]";:POKE53280,11:POKE53281,11
22 GOSUB52:Z=1:S=2:GOSUB72:PRINT"[196] E M O N S T R A T I O N   D E R   ":Z=2:GOSUB72:PRINT"[195] U R S O R A D R E S S I E R U N G ":PRINT:PRINT:PRINT"[196]AS FOLGENDE KURZE [208]ROGRAMM DEMONSTRIERT";:PRINT"DIE [195]URSORSTEUERUNG:":PRINT:PRINT"[158]100 [210][197][205] [196][197][205][207][206][211][212][210][193][212][201][207][206][211][208][210][207][199][210][193][205][205]":PRINT"110 [218]=21:[198][207][210][211]=0[212][207]39"
23 PRINT"120 [199][207][211][213][194]997:[208][210][201][206][212]";CHR$(34);"*";CHR$(34);":[198][207][210][212]=0[212][207]100:[206][197][216][212][212]":PRINT"130 [199][207][211][213][194]997:[208][210][201][206][212]";CHR$(34);" ";CHR$(34):PRINT"140 [206][197][216][212][211]:[197][206][196]":PRINT"150 :":PRINT"997 [210][197][205] [195][213][210][211][207][210][193][196][210][197][211][211][201][197][210][213][206][199][160][160][160][160][160][160][160][160][160][160][160] ":PRINT"998 [201][198][218]<0[207][210][218]>24[207][210][211]<0[207][210][211]>39[212][200][197][206][210][197][212][213][210][206]"
24 PRINT"999 [208][207][203][197]214,[218]:[208][207][203][197]211,[211]:[211][217][211]58640:[210][197][212][213][210][206]":PRINT:Z=19:S=3:GOSUB54:Z=21:FORS=0TO39:GOSUB72:PRINT"*":FORT=0TO100:NEXT:GOSUB72:PRINT" ":NEXTS:Z=21:S=0:GOSUB72:PRINT"[210][197][193][196][217].":GOSUB67:PRINT"[147]":POKE53281,0:POKE53280,0:PRINT"                                 [155][193][206][218][197][201][199][197]";:PRINT"[158][193]LS C'T / "
25 PRINT" ZUM ALLERERSTEN [205]AL / EINEM /":PRINT" HOCHKARAETIGEN [193]NZEIGENKUNDEN / VIA /":PRINT" [208]RUEFSTAND-[212]ESTBERICHT /":PRINT" OEFFENTLICH ERKLAERTE / WAS /""":PRINT" AN SEINEM [208]RODUKT / WIE UND WARUM /":PRINT" VERBESSERT WERDEN MUSS / DAMIT ES /"
26 PRINT" SEINEN / FLOTTEN [215]ERBESPRUECHEN /":PRINT" ENTSPRICHT / HAT DER / ZUR /":PRINT" ALLGEMEINEN [214]ERBLUEFFUNG / DIE [203]RITIK /";:PRINT" WILLKOMMEN GEHEISSEN / UND / GLEICH /":PRINT" DAS NAECHSTE [212]ESTGERAET /":PRINT" ANGESCHLEPPT /":PRINT:PRINT
27 PRINT"[158]C'T IST FUER [208]ROFIS & [208]ASSIONELLE":PRINT:PRINT:PRINT" C'T MAGAZIN FUER COMPUTERTECHNIK":PRINT:PRINT"[158][196]AZULERNEN WERDEN [211]IE IMMER.":GOSUB67:PRINT"[147][144]";:POKE53280,11:POKE53281,11:GOSUB52:Z=1:S=2:GOSUB72:PRINT"[199] R U N D L A G E N   D E R         "
28 Z=2:GOSUB72:PRINT"[195] U R S O R S T E U E R U N G       ":PRINT:PRINT:PRINT"[211]ELBSTVERSTAENDLICH KOENNEN [211]IE DAS ":PRINT"[213]NTERPROGRAMM [195][213][210][211][207][210][193][196][210][197][211][211][201][197][210][213][206][199][146] AUCH":PRINT"FUER DEN [201][206][208][213][212]-[194]EFEHL BENUTZEN.":PRINT:PRINT"[197]INGABEN WERDEN ABER OFTMALS UEBER DIE"
29 PRINT"[199][197][212]-[193]BFRAGE REALISIERT. [204]EIDER WIRD BEI":PRINT"DER [199][197][212]-[193]BFRAGE KEIN [195]URSOR GESETZT.":PRINT:PRINT"[197]S GIBT ABER AUCH HIERFUER EINIGE":PRINT"[208][207][203][197]-[193]DRESSEN MIT DEREN [200]ILFE WIR EINEN":PRINT"[195][213][210][211][207][210] AUF DEN [194]ILDSCHIRM 'ZAUBERN'":PRINT"KOENNEN. [201]M EINZELNEN SIND DIES:":PRINT
30 PRINT"[193]DRESSE 204[146] [195][213][211][207][210] EIN (0) / AUS (1)":PRINT"[193]DRESSE 646[146] [198]ARBWERT UNTER DEM [195][213][210][211][207][210]":GOSUB67:PRINT"[147][144]";:POKE53280,11:POKE53281,11:GOSUB52:Z=1:S=2:GOSUB72:PRINT"[195][160][213][160][210][160][211][160][207][160][210][160]- [198] A R B E   U N D ":Z=2:GOSUB72:PRINT"[195] U R S O R - [218] E I C H E N"
31 PRINT:PRINT:PRINT"[196]AS FOLGENDE KURZE [208]ROGRAMM ERMOEGLICHT":PRINT"[201]HNEN, SOWOHL DIE [195][213][210][211][207][210]-[198]ARBE ALS AUCH":PRINT"DEN [195][213][210][211][207][210] SELBST ZU BEEINFLUSSEN. ":PRINT:PRINT"[196]ER [211][217][211]59923[146] IST UNBEDINGT NOTWENDIG,":PRINT"DA EIN DIREKTES EINPOKEN ALLEIN NICHT"
32 PRINT"AUSREICHT. ([202]EDENFALLS NICHT IMMER)":PRINT:PRINT"[218]EILE 130 ENTSPRICHT [218]EILE 999 AUS DEM":PRINT"[213]NTERPROGRAMM [195][213][210][211][207][210][193][196][210][197][211][211][201][197][210][213][206][199].":PRINT"[193]UF DIE [194]EREICHSUEBERPRUEFUNG HABEN WIR":PRINT"VERZICHTET. [194]EI DER [218]EICHENEINGABE SIND":PRINT"NUR [218]IFFERN UND [194]UCHSTABEN SINNVOLL.":PRINT
33 PRINT"[199]EHEN [211]IE DAS [208]ROGRAMM RUHIG [218]EILE FUER":PRINT"[218]EILE DURCH!":GOSUB67:PRINT"[147][144]";:POKE53280,11:POKE53281,11:GOSUB52:Z=1:S=2:GOSUB72:PRINT"[212] E S T P R O G R A M M   F U E R":Z=2:GOSUB72:PRINT"[195] U R S O R - [193] U S G A B E":PRINT:PRINT"[158]100 [201][206][208][213][212]";CHR$(34);"[195][213][210][211][207][210][218][197][201][195][200][197][206]  =[160]";CHR$(34);";[195]$"
34 PRINT"110 [201][206][208][213][212]";CHR$(34);"[198][193][210][194][197] (0-9)    =[160]";CHR$(34);";[198]":PRINT"120 :":PRINT"130 [208][207][203][197]214,17:[208][207][203][197]211,25:[211][217][211]58640":PRINT"140 [208][207][203][197]646,[198]:[208][207][203][197]647,[198]:[208][207][203][197]780,[193][211][195]([195]$)":PRINT"150 [208][207][203][197]781,[198]:[211][217][211]59923:[208][207][203][197]204,0":PRINT"160 [198][207][210][212]=0[212][207]2000:[206][197][216][212][212]":PRINT"170 [208][207][203][197]205,255:[208][207][203][197]207,0:[208][207][203][197]204,1"
35 PRINT"180 :":PRINT"190 [197][206][196]"
36 Z=15:S=3:GOSUB54:Z=17:S=0:GOSUB72:PRINT"                                     ":GOSUB72:PRINT"[144][195][213][210][211][207][210][218][197][201][195][200][197][206]  ="
37 S=17:GOSUB72:PRINT" [146]";:FORT=0TO200:NEXTT:GETG$:IFG$=>" "ANDG$=<"Z"ANDG$<>"@"THEN39
38 GOSUB72:PRINT" ";:FORT=0TO200:NEXTT:GOTO37
39 GOSUB72:X=ASC(G$):IFX>47ANDX<58THENPRINTG$:GOTO41
40 PRINTCHR$(ASC(G$)+128)
41 Z=18:S=0:GOSUB72:PRINT"[198][193][210][194][197] (0-9)    ="
42 S=17:GOSUB72:PRINT" [146]";:FORT=0TO200:NEXTT:GETG$:IFG$=>"0"ANDG$=<"9"THEN44
43 GOSUB72:PRINT" ";:FORT=0TO200:NEXTT:GOTO42
44 GOSUB72:PRINTG$:F=VAL(G$):POKE214,17:POKE211,25:SYS58640:POKE646,F:POKE647,F:POKE780,X:POKE781,F:SYS59923:POKE204,0:FORT=0TO2000:NEXTT:POKE205,255:POKE207,0:POKE204,1:S=0:FORZ=17TO18:GOSUB72:PRINT"                                 ":NEXTZ:Z=17:GOSUB72:PRINT"[205]OECHTEN [211]IE  EINE [215]IEDERHOLUNG  J[146] / N[146]"
45 GETG$:IFG$<>"J"ANDG$<>"N"THEN45
46 GOSUB72:PRINT"[158]                                        ";:IFG$="J"THENZ=15:S=0:GOSUB72:GOTO36
47 Z=21:S=0:GOSUB72:PRINT"[210][197][193][196][217].":GOSUB67:PRINT"[147][144]";:POKE53280,11:POKE53281,11:GOSUB52:Z=1:S=2:GOSUB72:PRINT"[218] U S A M M E N F A S S U N G":Z=2:GOSUB72:PRINT"D E R   [193] D R E S S E N ":PRINT:PRINT:PRINT:PRINT"[193]DRESSE 204[146] = [195][213][210][211][207][210] AN/AUS":PRINT"[193]DRESSE 205[146] = [218]AEHLER FUER [195].-BLINKEN"
48 PRINT"[193]DRESSE 207[146] = [198][204][193][199] FUER [195][213][210][211][207][210] AN/AUS":PRINT:PRINT:PRINT"[193]DRESSE 211[146] = [218]EILENWERT  FUER [195][213][210][211][207][210]":PRINT"[193]DRESSE 214[146] = [211]PALTENWERT FUER [195][213][210][211][207][210]":PRINT:PRINT:PRINT"[193]DRESSE 646[146] = [198]ARBWERT UNTER [195][213][210][211][207][210]":PRINT"[193]DRESSE 647[146] = [193]UGENBLICKLICHER [198]ARBWERT":PRINT:PRINT
49 PRINT"[211][217][211]   58640[146] = [195][213][210][211][207][210] SETZEN":PRINT"[211][217][211]   59923[146] = [198]ARBE UNTER [195][213][210][211][207][210] SETZEN""":GOSUB67:PRINT"[147][144]";:POKE53280,11:POKE53281,11:GOSUB52:Z=1:S=2:GOSUB72:PRINT"[201] N   D E R   N A E C H S T E N":Z=2:GOSUB72:PRINT"[198] O L G E   V O N   6 4 E R   [212] I P S"
50 Z=7:S=10:GOSUB72:PRINT"[211]PEICHERVERWALTUNG[146]":Z=9:S=16:GOSUB72:PRINT"UNTER[146]":Z=11:S=14:GOSUB72:PRINT"[203]ONTROLLE":Z=15:S=4:GOSUB72:PRINT"DIE [218]EIGER FUER DIE [214]ERWALTUNG":Z=16:S=8:GOSUB72:PRINT"DER [214]ARIABLEN-[194]EREICHE":Z=18:S=2:GOSUB72:PRINT"[193]ENDERN DER [213]NTER- UND [207]BERGRENZEN"
51 Z=19:S=10:GOSUB72:PRINT"DES [194][193][211][201][195]-[211]PEICHERS":GOSUB62:GOTO16:END
52 Z=0:S=0:GOSUB72:PRINT"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";:PRINT"[221]                                      [221]";:PRINT"[221]                                      [221]";:PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]";:RETURN
53 POKESI,T(1,V):POKESI+1,T(0,V):POKESI+7,T(1,V):POKESI+8,T(0,V)+3:POKESI+14,T(1,V):POKESI+15,T(0,V)-3:POKESI+6,251:POKESI+4,17:POKESI+13,248:POKESI+11,65:POKESI+20,248:POKESI+18,65:POKESI+24,15:FORT=0TO100:NEXTT:POKESI+4,16:POKESI+11,64:POKESI+18,64:RETURN
54 PRINT"[210][213][206]":PRINT:PRINT"[211]TARTEN [211]IE DAS [208]ROGRAMM MIT [210][197][212][213][210][206][146]"
55 GOSUB72:PRINT"[158] [146]":FORT=0TO200:NEXTT:GETG$:IFG$=""THEN58
56 IFG$=CHR$(13)THENGOSUB60:GOTO59
57 GOSUB61
58 GOSUB72:PRINT" ":FORT=0TO100:NEXTT:GOTO55
59 GOSUB72:PRINT" ":RETURN
60 POKESI,59:POKESI+1,139:POKESI+6,240:POKESI+4,17:POKESI+24,15:FORT=0TO100:NEXTT:POKESI+4,0:RETURN
61 POKESI,180:POKESI+1,8:POKESI+6,240:POKESI+4,17:POKESI+24,15:FORT=0TO100:NEXTT:POKESI+4,0:RETURN
62 Z=24:S=0:GOSUB72:PRINT"[155][193]NFANG =  [193] [146]";:FORT=0TO200:NEXTT:GETG$:IFG$=""THEN65
63 IFG$="A"ORG$="[193]"THENGOSUB60:GOTO66
64 GOSUB61
65 GOSUB72:PRINT"[193]NFANG =  [193]  ";:FORT=0TO200:NEXTT:GOTO62
66 GOSUB72:PRINT"                  ";:RETURN
67 Z=24:S=0:GOSUB72:PRINT"[155][215]EITER =  [215] [146]";:FORT=0TO200:NEXTT:GETG$:IFG$=""THEN70
68 IFG$="W"ORG$="[215]"THENGOSUB60:GOTO71
69 GOSUB61
70 GOSUB72:PRINT"[215]EITER =  [215]  ";:FORT=0TO200:NEXTT:GOTO67
71 GOSUB72:PRINT"                 ";:RETURN
72 POKE214,Z:POKE211,S:SYS58640:PRINT"";:RETURN